home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / phase5 / cybergfx / cgxv3_install next >
Text File  |  1998-02-01  |  62KB  |  1,240 lines

  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /      INSTALL       / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /  V3
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; 3D Labs Inc. : CyberVisionPPC
  11. ; S3           : CyberVision64/3D, CyberVision64
  12. ; Cirrus Logic : Picasso II(+), Picasso IV, Spectrum, Piccolo, Piccolo SD64, Inferno
  13. ; CBM Chip Sets: Advanced Graphics Architecture - AGA
  14. ; Symbios (NCR): Retina BLT Z3
  15. ; Texas Inst.  : A2410 
  16. ;          
  17. ; CyberGraphX V3 BETA Installer ©1995,1996,1997,1998 by Robert C. Reiswig 
  18. ; $VER: V0.43 (January-20-1998)
  19. ; If you wish to use any part of this installer you must ask. May not be 
  20. ; integrated/placed into any other package! You may NOT change this in an way!
  21. ; You man NOT take or use the ENV definitions and use them without direct
  22. ; permission from me! Changes, suggestions or problems: vgr@best.com
  23. ;********************************************************************************
  24.  
  25.  
  26. ;********************************************************************************
  27. ; Cyber Release & Boards
  28. ;********************************************************************************
  29. (set @user-level 2)
  30. (set #cyberver "V3 41.2")
  31. (set NoBoard 0)
  32. (set whereback "SYS:Storage")
  33. (message (cat "CyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  34.               "CyberVisionPPC & CyberVision64/3D & CyberVision64\n\nPicasso II(+) & Picasso IV & Inferno\n\n"
  35.               "Piccolo & Piccolo SD64 & Spectrum 28/24\n\nA2410 & Retina BLT Z3\n\nAGA (PPC Only)"
  36.          )
  37. )
  38.  
  39. (welcome)
  40. ;********************************************************************************
  41. ; Read All System information
  42. ;********************************************************************************
  43. (set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  44. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  45. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  46. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  47. (set fastmem (- totmem graphmem))
  48. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  49. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  50. ( if (= osver 41) ( (set workbench "3.2")) )))))
  51. (set pick 0)
  52.  
  53. ;********************************************************************************
  54. ;English Strings
  55. ;********************************************************************************
  56. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  57.               "by:\n\nVision Factory Development"
  58.           
  59.          )
  60. )
  61.  
  62. (set #askzorro "\nWhat type of machine is CyberGraphX V3 installed on?\n")
  63. (set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V3 on? The installer has found:\n")
  64. (set #wherelibs "Where do you want the CyberGraphX V3 libraries installed? The default is 'SYS:Libs'")
  65. (set #whatboard (cat "\nPlease Select the Graphics Board(s) you wish to Install CyberGraphX V3 for:\n"))
  66. (set #todo-prompt "\nDo you wish to install:\n")
  67. (set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
  68. (set #wheremode "Where do you wish to copy the CGXMode Program?")
  69. (set #whereshowcgxconfig "Where do you wish to copy the ShowCGXconfig Program?")
  70. (set #showcgxconfig " ShowCGXconfig - CGX Info Program")
  71.  
  72. ;***** New Strings for Aug-11-97
  73. (set #nocvppcboard "\n\n\nCurrently there is no public driver for the CyberVisionPPC graphics card.")
  74. (set #noretinaboard "\n\n\nCurrently there is no public driver for the Retina BLT Z3 graphics card.")
  75. (set #nopicasso4board "\n\n\nCurrently there is no public driver for the Picasso IV graphics card.")
  76. (set #noinfernoboard "\n\n\nCurrently there installer does not fully support the Inferno yet.")
  77.  
  78. (set #ask-MODEFILE1 "Which modefile should be installed for the ") 
  79. (set #ask-MODEFILE2 "? The khz number should not exceed your monitors max khz!")
  80. (set #15KHZ "15khz maximum") (set #31KHZ "31khz maximum")
  81. (set #35KHZ "35khz maximum") (set #38KHZ "38khz maximum")
  82. (set #48KHZ "48khz maximum") (set #57KHZ "57khz maximum")
  83. (set #64KHZ "64khz maximum") (set #80KHZ "80khz maximum")
  84.  
  85. (set #yes "Yes")
  86. (set #no "No")
  87. (set #followingenv "\n\n\n\nThe following section will set the Env Vars for CyberGraphX V3.")
  88. (set #whatboard-tt "\n\n\n\nThe following ToolTypes will be set for the:\n\n")
  89.  
  90.  
  91. (set #usesemaphores (cat "USESEMAPHORES\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  92.                          "Uses Semaphores to avoid disabling of multitasking "
  93.                          "under certain conditions. Enabling this option might "
  94.                          "lead to lockups under certain conditions but overall is more "
  95.                          "system friendly."
  96.              )
  97. )
  98. (set #superlayers (cat "SUPERLAYERS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  99.                        "New fast layers replacement. Will speed layers up a lot, "
  100.                        "especially when using many windows."
  101.              )
  102. )
  103. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  104.                   "By setting this variable, the planar-to-chunky conversion "
  105.                   "will be done by the CPU, instead of using the blitter."
  106.                   "Therefore the ugly looking 'planar' blitting effects are gone, "
  107.                   "but the software conversion is a bit slower."
  108.              )
  109. )
  110. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  111.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  112.                      "become Hires-sprites (they are no longer doubled by "
  113.                      "the CyberGraphX-Software). "
  114.                     
  115.                 )
  116. )
  117. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  118.                      "By setting this variable, you can switch off 15bit modes to reduce "
  119.                      "screenmode list length. The Modes are still available just hidden."
  120.                 )
  121. )
  122. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  123.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) "
  124.                      "will be placed on an CyberGraphX screens."
  125.                 )
  126. )
  127. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  128.                      "With this option on, non displayable planar bitmaps "
  129.                      "are allocated in fast memory. This options speeds up "
  130.                      "handling of planar bitmaps but could lead to problems "
  131.                      "with amiga graphics which insist on planar graphics "
  132.                      "placed in chip memory. Take care when using this option."
  133.                 )
  134. )
  135. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  136.                      "Everytime a CyberGraphX display becomes a front-screen, "
  137.                      "Amiga display DMA is switched off in order "
  138.                      "to increase chipmem access speed if this option is off."
  139.                 )
  140. )
  141. (set #savemem   (cat "SAVEMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  142.                      "CyberGraphX will reduce memory consumption in less or equal 16 colour "
  143.                      "modes, CyberGraphX keeps a planar representation of the screen "
  144.                      "bitmap in fastmem and a chunky representation in video memory."
  145.                 )
  146. )
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153. (set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  154.                      "Setting this to '0' will cause the CyberGraphX Bootlogo "
  155.                      "not to be shown at boot time for this card."
  156.                 )
  157. )
  158. (set #passthrough (cat "PASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  159.                        "If this option is disabled, the monitor switch on this "
  160.                        "CyberGraphX card is deactivated. This option is "
  161.                        "required for multi monitor systems."
  162.                 )
  163. )
  164. (set #memclock  (cat "MEMCLOCK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  165.                      "This is the default memory clock speed in MHz for "
  166.                      "the graphics memory on the card. Default is:" 
  167.                 ) 
  168. )
  169. (set #scrollmask (cat "SCROLLMASK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  170.                       "Enables masking when scrolling/moving rectangles with "
  171.                       "a mask in 256 colour modes. Setting this to 'NO' will "
  172.                       "speed up scrolling of text in a shell but might "
  173.                       "cause text crsr refresh problems with programs such as CED."
  174.                  )
  175. )
  176. (set #dragging  (cat "DRAGGING\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  177.                      "This makes it is possible to keep multiple screens in video memory "
  178.                      "allowing for very fast screen swaps. The trade off is that you will loose screen dragging."
  179.                      "Do you wish to have dragable screens like normal amiga screens do?"
  180.                 )
  181. )
  182.  
  183. ;*********** NEW English Strings:  Wednesday 03-Sep-97 *************************
  184. (set #nobackup "\n\nThis installer will install CGX V3 for the first time. Before you start you should use the backup program that came with your RTG Graphics system. Then you should use the uninstaller that came with it. If it did not come with these, then you will need to remove it by hand.\n\nYou should do this now if you have not done so.")
  185. (set #whatboot "\nWhat bootlogo would you like to use?\n")
  186. (set #bootdefault "CyberGraphX - Default")
  187. (set #bootppc "Light My Fire - PPC")
  188. (set #bootnone "Don't copy - Already Installed")
  189.  
  190.  
  191. ;*********** NEW English Strings:  Wednesday 22-Oct-97 *************************
  192. (set #nopassthrough (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  193.                          "THIS IS A MASTER SWITCH. If this option is enabled, the monitor switch on every "
  194.                          "CyberGraphX supported board is deactivated. This option is "
  195.                          "required for multi monitor systems. It is disabled by default. "
  196.                          "If NOPASSTHROUGH=0 (No) then the tooltype PASSTHROUGH can be used. If NOPASSTHROUGH=1 (Yes) then the tooltype PASSTHROUGH is not used!"
  197.                     )
  198. )
  199.  
  200. (set #supergels     (cat "SUPERGELS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  201.                          "A replacement for the original CyberGraphX GELs system. GELs = "
  202.                          "Graphic ELementS, this includes things like blitter objects and effects the speed of "
  203.                          "things like moving icons or opus drag and drop stuff. It will also give you "
  204.                          "superimposed dragging in hi/truecolor! It is disabled by default (No)."
  205.  
  206.                     )
  207. )
  208.  
  209. ;*********** NEW English Strings:  Monday 01-Dec-97 *************************
  210. (set #noaga "\n\n\nCurrently there installer does not fully support the AGA Chipset or the driver is not out. Please see http://www.vgr.com for more info.")
  211. (set #CGXModeNot4AGA " CGXMode - Not for AGA Driver")
  212. (set #noenvaga "\n\nThe following ENV VARs that you will set will be use by the _graphics card(s)_ that you selected. They will NOT be used by the AGA-PPC driver.")
  213. (set #multimediamem (cat "MULTIMEDIAMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  214.                          "If MULTIMEDIAMEM=YES CGX will reserve 1MB on the CV64/3D for 3D Textures & Video Overlay options. "
  215.                          "If NO, CV64/3D will then act like a card that does not have these options, like PicassoII. "
  216.                          "You will get the full 4MB for screens with a Z3 machine (Z2 gets 3.5MB). "
  217.                          "MULTIMEDIAMEM is defaulted to YES (where 3MB can be used for screens)."
  218.  
  219.                     )
  220. )
  221.  
  222. (set #blackborder   (cat "BLACKBORDER\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  223.                          "By setting 'BLACKBORDER=YES' will cause the "
  224.                          "border around the screen to be black. The Retina BLT Z3 always uses color0 "
  225.                          "by default where other cards always use black. Default is 'BLACKBORDER=NO'."
  226.                     )
  227. )
  228.  
  229. (set #noboard "\nOne of the board(s) or chipset(s) you selected is not currently supported.\n\nPlease look on http://www.vgr.com for an update or wait until the next CyberGraphX archive is released.\n\nThe card with the missing driver was the:\n") 
  230.  
  231. ;*********** NEW English Strings:  Wednesday 21-Jan-98 **********************
  232. (set #updatep4flash "\nTo use CyberGraphX with the Picasso IV you should be running version 2.0 or greater of the Picasso IV FlashROM.\n\nThe installer has found a version lower then 2.0.\n\nForm more information and newer FlashROMs you can contact:\nYour Dealer\nVillage Tronic\nVillage Tronic Web site\n")
  233.  
  234. ;********************************************************************************
  235. ;German Strings
  236. ;********************************************************************************
  237. (if (= @language "deutsch")
  238. (
  239.  (set #askzorro "\nWelche Erweiterungsslots besitzt der Computer, auf dem Sie CyberGraphX V3 installieren ?\n")
  240.  (set #askcpu "\nWelchen Prozessor besitzt der Computer, auf dem Sie CyberGraphX V3 installieren wollen ? Der installer hat folgendes gefunden:\n")
  241.  (set #wherelibs "Wohin sollen die CyberGraphX V3 Bibliotheken installiert werden? Standard ist 'SYS:Libs'")
  242.  (set #whatboard (cat "\nBitte wählen Sie die Grafikkarte(n), mit denen Sie CyberGraphX V3 benutzen wollen:\n"))
  243.  (set #todo-prompt "\nWelches der folgenden Programme wollen Sie installieren: ?\n")
  244.  (set #cgxmode-todo " CGXMode - Erstellen & Ändern von Bildschirmmodis")
  245.  (set #wheremode "Wohin wollen Sie das CGXMode Programm kopiert haben?")
  246.  (set #whereshowcgxconfig "Wohin wollen Sie das ShowCGXconfig Programm kopiert haben?")
  247.  (set #showcgxconfig " ShowCGXconfig - CyberGraphX Informationsprogramm")
  248.  
  249.  ;***** New Strings for Aug-11-97
  250.  (set #nocvppcboard "\n\n\nMomentan ist kein Treiber für die CyberVisionPPC Grafikkarte frei verfügbar.")
  251.  (set #noretinaboard "\n\n\nMomentan ist kein Treiber für die Retina BLT Z3 Grafikkarte frei verfügbar.")
  252.  (set #nopicasso4board "\n\n\nMomentan ist kein Treiber für die PicassoIV Grafikkarte frei verfügbar.")
  253.  (set #noinfernoboard "\n\n\nMomentan unterstützt dieses Skript die Installation der Inferno Grafikkarte noch nicht.")
  254.  
  255.  (set #ask-MODEFILE1 "Welche Monitorfrequenzdatei wählen Sie für die ") 
  256.  (set #ask-MODEFILE2 "? Die khz Angabe sollte die maximale khz Angabe für ihren Bildschirm nicht überschreiten!")
  257.  (set #15KHZ "15khz maximum") (set #31KHZ "31khz maximum")
  258.  (set #35KHZ "35khz maximum") (set #38KHZ "38khz maximum")
  259.  (set #48KHZ "48khz maximum") (set #57KHZ "57khz maximum")
  260.  (set #64KHZ "64khz maximum") (set #80KHZ "80khz maximum")
  261.  
  262.  (set #yes "Ja")
  263.  (set #no "Nein")
  264.  (set #followingenv "\n\n\n\nDer folgende Abschnitt setzt die Umgebungsvariablen für CyberGraphX V3.")
  265.  (set #whatboard-tt "\n\n\n\nDie folgenden Piktogrammmerkmale werden gesetzt für die:\n\n")
  266.  
  267.  (set #usesemaphores (cat "USESEMAPHORES\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  268.                          "Benutzt Semaphoren um das Unterbrechen des Multitaskings bei bestimmten Bedingungen "
  269.                          "zu vermeiden. Die Aktivierung dieser Option könnte zu Systemhängern unter gewissen "
  270.                          "Voraussetzungen führen, ist aber im Ganzen Multitaskingfreundlicher als die Standardmethode."
  271.              )
  272.  )
  273.  (set #superlayers (cat "SUPERLAYERS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  274.                        "Neuer, schneller Layers Ersatz. Dadurch werden Fensteroperationen beschleunigt, "
  275.                        "vor allem, wenn viele Fenster benutzt werden."
  276.              )
  277.  )
  278.  
  279.  (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  280.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  281.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  282.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  283.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  284.              )
  285.  )
  286.  
  287.  (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  288.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  289.                      "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
  290.                      "verdoppelt). "
  291.                 )
  292.  )
  293.  
  294.  (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  295.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  296.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  297.                 )
  298.  )
  299.  
  300.  (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  301.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) "
  302.                      "auf einen CyberGraphX Bildschirm umgeleitet."
  303.                 )
  304.  )
  305.  
  306.  (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  307.                      "Ist diese Option aktiv, werden nicht darzustellende "
  308.                      "planare BitMaps im FastRAM angelegt. Diese Option "
  309.                      "beschleunigt die Bearbeitung von planaren BitMaps aber "
  310.                      "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
  311.                      "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
  312.                      "Seien Sie vorsichtig mit der Aktivierung dieser Option."
  313.                )
  314.  )
  315.  
  316.  (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  317.                      "Ist diese Option nicht aktiv, wird jedesmal, wenn "
  318.                      "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
  319.                      "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
  320.                 )
  321.  )
  322.  
  323.  (set #savemem   (cat "SAVEMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  324.                      "Wenn diese Option aktiv ist, verbraucht CyberGraphX weniger Speicher in kleiner oder gleich "
  325.                      "16 Farben, weil im Fast RAM Speicher ein planares Abbild des Videospeichers gehalten wird "
  326.                      "und im Videospeicher ein Chunky Abbild."
  327.                 )
  328.  )
  329.  
  330.  
  331.  
  332.  (set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  333.                      "Ist diese Option inaktiv (auf '0' gesetzt), wird das CyberGraphX Startlogo "
  334.                      "nicht angezeigt während eines Neustarts des Rechners."
  335.                 )
  336.  )
  337.  
  338.  
  339.  (set #passthrough   (cat "PASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  340.                     "Wenn diese Option deaktiviert ist, wird der Monitorumschalter "
  341.                     "auf der jeweiligen Karte deaktiviert. "
  342.                     "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
  343.                 )
  344.  )
  345.  
  346.  
  347.  (set #memclock  (cat "MEMCLOCK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  348.                      "Damit wird die Geschwindigkeit in MHz für den"
  349.                      "Grafikkartenspeicher eingestellt. Standard ist:" 
  350.                 ) 
  351.  )
  352.  
  353.  (set #scrollmask (cat "SCROLLMASK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  354.                       "Aktiviert Maskierung beim Verschieben/Scrollen von Rechtecken mit "
  355.                       "einer Maske in 256 Farben. Ist dieses Merkmal auf 'NO' gesetzt "
  356.                       "wird das Scrollen in einem Shell Fenster geringfügig schneller, "
  357.                       "es kann aber bei bestimmten Programmen (wie CED) auch zu Refresh"
  358.                   " Problemen kommen."
  359.                  )
  360.  )
  361.  (set #dragging  (cat "DRAGGING\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  362.                      "Mit diesem Merkmal ist es möglich, zwischen schnellem Bildschirmumschalten "
  363.                      "oder herunterziehbaren Bildschirmen zu wählen. Welche Variante besser ist, "
  364.                      "hängt ganz vom persönlichen Geschmack des Benutzers ab. Als Vorgabe sind "
  365.              "Bildschirme immer ziehbar."
  366.                 )
  367.  )
  368.  
  369.  ;*********** NEW Strings:  Wednesday 03-Sep-97 *************************
  370.  (set #nobackup "\n\nDieses Installationsskript führt eine Erstinstallation von CyberGraphX V3 durch. Bevor Sie weitermachen, sollten Sie das evtl. vorhandene alte System mit dem entsprechend dafür vorgesehenen Programm sichern. Verwenden Sie dann das Programm zum Entfernen der alten RTG Systemsoftware. Wenn dieses Programm nicht vorhanden ist, so müssen Sie das manuell erledigen.\n\nSie müssen es auf jeden Fall tun, bevor sie mit dieser Installation fortfahren.")
  371.  (set #whatboot "\nWelches StartupLogo wollen Sie installieren ?\n")
  372.  (set #bootdefault "CyberGraphX - Standard")
  373.  (set #bootppc "Light My Fire - PPC")
  374.  (set #bootnone "Nichts kopieren - bereits installiert")
  375.  
  376.  
  377.  ;*********** NEW English Strings:  Wednesday 22-Oct-97 *************************
  378.  (set #nopassthrough (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  379.                          "Wenn diese Option aktiv ist, werden die Monitorumschalter aller "
  380.                          "CyberGraphX Grafikkarten deaktiviert. Bei Mehrmonitorbetrieb wird "
  381.                          "diese Option benötigt. Sie ist standardmäßig inaktiv. "
  382.                          "Wenn NOPASSTHROUGH=0 (Nein) kann der ToolType PASSTHROUGH in den Monitortreibern verwendet werden. Wenn NOPASSTHROUGH=1 (Ja), ist der Tooltype PASSTHROUGH überbrückt!"
  383.                     )
  384.  )
  385.  
  386.  (set #supergels     (cat "SUPERGELS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  387.                          "Ein Ersatz für das originale CyberGraphX GELs system. GELs = "
  388.                          "Graphic ELementS, das betrifft sogenannte BOBs und erhöht die Geschwindigkeit "
  389.                          "bei Operationen wie dem Verschieben von Piktogrammen oder DOpus Drag&Drop. Standardmäßig "
  390.                          "ist diese Option nicht aktiv (Nein)."
  391.  
  392.                      )
  393.  )
  394.  
  395.  
  396. )
  397. )
  398.  
  399. ;********************************************************************************
  400. ; French Strings by: Gregory Eycken <geycken@geocities.com>
  401. ;********************************************************************************
  402. (if (= @language "français")
  403. (
  404.  (set #askzorro "\nSur quel type d'ordinateur CyberGraphX V3 va-t-il être installé?\n")
  405.  (set #askcpu "\nQuel est le processeur de l'ordinateur sur lequel vous voulez installer CyberGraphX V3? L'installeur a trouvé :\n")
  406.  (set #wherelibs "Où désirez-vous installer les bibliothèques de CyberGraphX V3? Par défaut, c'est 'SYS:Libs'.")
  407.  (set #whatboard (cat "\nVeuillez sélectionner la carte graphique dont vous voulez installer le fichier moniteur :\n"))
  408.  (set #todo-prompt "\nDésirez-vous installer :\n")
  409.  (set #cgxmode-todo " CGXMode - Créer et modifier les modes d'écran")
  410.  (set #wheremode "Où désirez-vous installer le programme CGXMode?")
  411.  (set #whereshowcgxconfig "Où désirez-vous installer le programme ShowCGXconfig?")
  412.  (set #showcgxconfig " ShowCGXconfig - Programme d'informations CyberGraphX")
  413.  
  414.  ;***** New Strings for Aug-11-97
  415.  (set #nocvppcboard "\n\n\nIl n'y a actuellement pas de fichier moniteur pour la carte graphique CyberVisionPPC.")
  416.  (set #noretinaboard "\n\n\nIl n'y a actuellement pas de fichier moniteur pour la carte graphique Retina BLT Z3.")
  417.  (set #nopicasso4board "\n\n\nIl n'y a actuellement pas de fichier moniteur pour la carte graphique Picasso IV.")
  418.  (set #noinfernoboard "\n\n\nLe script d'installation n'a pas conçu pour supporter entièrement l'Inferno.") 
  419.  
  420.  (set #ask-MODEFILE1 "Quel fichier de modes désirez-vous installer pour la ") 
  421.  (set #ask-MODEFILE2 "?\nLe nombre de kHz ne devrait pas dépasser la limite maximale de votre moniteur!")
  422.  (set #none "Aucun")
  423.  (set #15KHZ "15kHz maximum") (set #31KHZ "31kHz maximum")
  424.  (set #35KHZ "35kHz maximum") (set #38KHZ "38kHz maximum")
  425.  (set #48KHZ "48kHz maximum") (set #57KHZ "57kHz maximum")
  426.  (set #64KHZ "64kHz maximum") (set #80KHZ "80kHz maximum")
  427.  
  428.  (set #yes "Oui")
  429.  (set #no "Non")
  430.  (set #followingenv "\n\n\n\nLa partie suivante de l'installation va configurer les variables d'environnement pour CyberGraphX V3.")
  431.  (set #whatboard-tt "\n\n\n\nLa partie suivante de l'installation va configurer les ToolTypes du fichier moniteur de la\n")
  432.  
  433.  (set #usesemaphores (cat "USESEMAPHORES\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  434.                           "Si cette option est activée ('Oui'), cela peut amener à des "
  435.                           "gels du système dans certaines conditions, mais c'est en "
  436.                           "général plus respectueux envers le système ('system friendly').\n"
  437.                           "En effet, l'utilisation de sémaphores peut empêcher le multitâche "
  438.                           "d'être désactivé dans certains cas."
  439.               )
  440.  )
  441.  (set #superlayers (cat "SUPERLAYERS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  442.                         "Nouveau remplacement des layers.\n"
  443.                         "Si 'Oui', les layers seront plus rapides, spécialement "
  444.                         "lors de l'utilisation de plusieurs fenêtres. "
  445.                    )
  446.  )
  447.  (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  448.                    "Si 'Oui', la conversion 'planar-to-chunky' sera effectuée par le "
  449.                    "processeur au lieu de l'être par le blitter. "
  450.                    "Les affreux effets blitting 'planar' auront disparus mais "
  451.                    "la conversion sera plus lente."
  452.               )
  453.  )
  454.  (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  455.                       "Si 'Oui', les sprites 'basse résolution' sur les ordinateurs "
  456.                       "non-AGA deviendront des sprites 'haute résolution' (ils ne seront "
  457.                       "ainsi plus doublés par la couche logicielle CyberGraphX)."
  458.                  )
  459.  )
  460.  (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  461.                       "Si 'Oui', les modes '15 bits' ne seront pas affichés dans la "
  462.                       "liste des modes d'écran, afin de réduire la longueur de la liste. "
  463.                       "Les modes restent disponibles mais cachés."
  464.                  )
  465.  )
  466.  (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  467.                       "Si 'Oui', les écrans ouverts par la fonction DisplayAlert(), "
  468.                       "fonction qui averti des plantages du système, seront placés "
  469.                       "sur des écrans CyberGraphX."
  470.                  )
  471.  )
  472.  (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  473.                       "Si 'Oui', les graphiques 'planar' non-affichables seront placés "
  474.                       "en autre mémoire (Fast).\nCette option accélère le traitement "
  475.                       "des graphiques 'planar' mais peut conduire à certains problèmes "
  476.                       "avec les graphiques Amiga qui insistent pour être placés en "
  477.                       "mémoire graphique (Chip).\nUtilisez cette option avec prudence!"
  478.                  )
  479.  )
  480.  (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  481.                       "Si 'Non', chaque fois qu'un écran CyberGraphX sera activé, "
  482.                       "le DMA de l'affichage Amiga sera suspendu afin d'accélérer "
  483.                       "l'accès à la mémoire graphique (Chip)."
  484.                  )
  485.  )
  486.  (set #savemem   (cat "SAVEMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  487.                       "Si 'Oui', CyberGraphX diminuera l'utilisation de mémoire si le "
  488.                       "mode est en 16 couleurs ou moins.\nCyberGraphX gardera alors une "
  489.                       "représentation 'planar' de l'écran en autre mémoire (Fast) et une "
  490.                       "représentation 'chunky' en mémoire vidéo (sur la carte graphique)."
  491.                  )
  492.  )
  493.  
  494.  (set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  495.                       "Si 'Non', aucun logo ne sera affiché via cette carte lors de "
  496.                       "l'initialisation."
  497.                  )
  498.  )
  499.  (set #passthrough (cat "PASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  500.                         "Si 'Non', l'interrupteur pour moniteur de cette carte est "
  501.                         "désactivé. Cette option est requise pour les systèmes à "
  502.                         "plusieurs moniteurs."
  503.                  )
  504.  )
  505.  (set #memclock  (cat "MEMCLOCK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  506.                       "Veuillez entrer la vitesse d'horloge en MHz de la mémoire vidéo "
  507.                       "(celle se trouvant sur la carte graphique). Par défaut, c'est:" 
  508.                  ) 
  509.  )
  510.  (set #scrollmask (cat "SCROLLMASK\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  511.                        "Si 'Oui', le masquage est activé lors du défilement/déplacement "
  512.                        "de rectangles avec un masque dans les modes de 256 couleurs. "
  513.                        "Choisir 'Non' rendra le défilement du texte plus fluide dans un "
  514.                        "Shell mais pourra aussi produire des erreurs de rafraîchissement "
  515.                        "du texte dans des programmes comme CygnusEd."
  516.                   )
  517.  )
  518.  (set #dragging  (cat "DRAGGING\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  519.                       "Si 'Non', plusieurs écrans seront gardés en mémoire vidéo "
  520.                       "(sur la carte graphique), rendant le changement d'écran très rapide. "
  521.                       "Malheuresement, la fonction de glissement d'écrans (screen dragging) "
  522.                       "sera perdue.\nDésirez-vous garder la fonction de glissement d'écrans "
  523.                       "comme les écrans Amiga vous le permettent?"
  524.                  )
  525.  )
  526.  
  527.  ;*********** New Strings for Wednesday 03-Sep-97 *************************
  528.  (set #nobackup "\n\nCe script d'installation va installer CyberGraphX V3 pour la première fois.\n\nAvant de poursuivre, si vous utilisez un autre système RTG, faites un archivage puis une déinstallation à l'aide des utilitaires fournis avec cet autre système. Si ce système ne contient pas d'utilitaires, enlevez les fichiers manuellement.\n\n")
  529.  (set #whatboot "\nQuel logo désirez-vous afficher durant l'initialisation?\n")
  530.  (set #bootdefault "CyberGraphX - Par défaut")
  531.  (set #bootppc "Light My Fire - Pour les PowerPC")
  532.  (set #bootnone "Ne rien copier - Le logo est déjà installé")
  533.  
  534.  ;*********** New Strings for Wednesday 22-Oct-97 *************************
  535.  (set #nopassthrough (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  536.                           "CECI EST UNE OPTION GENERALE.\nSi 'Oui', l'interrupteur pour moniteur "
  537.                           "de toutes les cartes gérées par CyberGraphX sera désactivé. "
  538.                           "Cette option est requise pour les systèmes à plusieurs moniteurs. "
  539.                           "Par défaut, c'est 'Non'.\n"
  540.                           "Attention! Si 'Non', alors le ToolType PASSTHROUGH pourra être utilisé. "
  541.                           "Si 'Oui', alors le ToolType PASSTHROUGH ne pourra pas être utilisé!"
  542.                      )
  543.  )
  544.  
  545.  (set #supergels     (cat "SUPERGELS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  546.                           "Si 'Oui', le système de GELs original de CyberGraphX sera remplacé "
  547.                           "(GELs = Graphic ELementS, éléments graphiques). Par défaut, c'est 'Non'.\n"
  548.                           "Les SUPERGELS incluent des nouveautés comme les objets et les effets blitter, "
  549.                           "et l'accélération de choses comme le déplacement d'icônes ou le 'prendre et "
  550.                           "lâcher' (drag'n'drop) de DOpus. "
  551.                           "Il permet aussi un glissement superimposé en Hi/TrueColor."
  552.                      )
  553.  )
  554.  
  555. )
  556. )
  557.  
  558. ;********************************************************************************
  559. ; Start Update
  560. ;********************************************************************************
  561. ;(message #by)
  562. (message #nobackup)
  563.  
  564.  
  565. ;*******************************************************************
  566. ;  What board to update
  567. ;*******************************************************************
  568. (set BGuess 0)
  569.  
  570. (if (> (exists ("devs:monitors/CVisionPPC")) 0) (set BGuess (+ BGuess 1)) )
  571. (if (> (exists ("devs:monitors/CVision3D")) 0)  (set BGuess (+ BGuess 2)) )
  572. (if (> (exists ("devs:monitors/CVision64")) 0)  (set BGuess (+ BGuess 4)) )
  573. (if (> (exists ("devs:monitors/PicassoII")) 0)  (set BGuess (+ BGuess 8)) )
  574. (if (> (exists ("devs:monitors/Spectrum")) 0)   (set BGuess (+ BGuess 16)) )
  575. (if (> (exists ("devs:monitors/Piccolo")) 0)    (set BGuess (+ BGuess 32)) )
  576. (if (> (exists ("devs:monitors/PiccoSD64")) 0)  (set BGuess (+ BGuess 64)) )
  577. (if (> (exists ("devs:monitors/Inferno")) 0)    (set BGuess (+ BGuess 128)) )
  578. (if (> (exists ("devs:monitors/PicassoIV")) 0)  (set BGuess (+ BGuess 256)) )
  579. (if (> (exists ("devs:monitors/RetinaZ3")) 0)   (set BGuess (+ BGuess 512)) )
  580. (if (> (exists ("devs:monitors/CGXAGA")) 0)     (set BGuess (+ BGuess 1024)) )
  581. (if (> (exists ("devs:monitors/A2410")) 0)      (set BGuess (+ BGuess 2048)) )
  582.  
  583.   (set board (askoptions (choices  " CyberVisionPPC" " CyberVision64/3D" " CyberVision64" " PicassoII(+)" " Spectrum"
  584.                                    " Piccolo" " Piccolo SD64" " Inferno" " Picasso IV" " Retina BLT Z3" " AGA (PPC Only)" " A2410"
  585.                           (prompt #whatboard)
  586.                       (help #whatboard)
  587.                           (default BGuess)
  588.                          )
  589.              )     
  590.   )
  591.  
  592. (if (AND (= (exists (tackon "3DDrivers" "CVisionPPC")) 0) (IN board 0) ) (abort (cat #noboard "CVisionPPC")) )
  593. (if (AND (= (exists (tackon "S3Drivers" "CVision3D.Z3")) 0) (IN board 1) ) (abort (cat #noboard "CVision3D")) )
  594. (if (AND (= (exists (tackon "S3Drivers" "CVision64")) 0)  (IN board 2) ) (abort (cat #noboard "CVision64")) )
  595. (if (AND (= (exists (tackon "CLDrivers" "PicassoII")) 0)  (IN board 3) ) (abort (cat #noboard "PicassoII")) )
  596. (if (AND (= (exists (tackon "CLDrivers" "Spectrum")) 0)   (IN board 4) ) (abort (cat #noboard "Spectrum")) )
  597. (if (AND (= (exists (tackon "CLDrivers" "Piccolo")) 0)    (IN board 5) ) (abort (cat #noboard "Piccolo")) )
  598. (if (AND (= (exists (tackon "CLDrivers" "PiccoSD64")) 0)  (IN board 6) ) (abort (cat #noboard "PiccoSD64")) )
  599. (if (AND (= (exists (tackon "CLDrivers" "Inferno")) 0)    (IN board 7) ) (abort (cat #noboard "Inferno")) )
  600. (if (AND (= (exists (tackon "CLDrivers" "PicassoIV")) 0)  (IN board 8) ) (abort (cat #noboard "PicassoIV")) )
  601. (if (AND (= (exists (tackon "SLDrivers" "RetinaZ3")) 0)   (IN board 9) ) (abort (cat #noboard "RetinaZ3")) )
  602. (if (AND (= (exists (tackon "AADrivers" "CGXAGA")) 0)     (IN board 10) ) (abort (cat #noboard "CGXAGA")) )
  603. (if (AND (= (exists (tackon "TIDrivers" "A2410")) 0)      (IN board 11) ) (abort (cat #noboard "A2410")) )
  604.  
  605. (if (IN board 10) (set AGA 1) (set AGA 0))
  606.  
  607. ;********************************************************************
  608. ; Double Check on the CPU
  609. ;********************************************************************
  610. (set cpu (database "cpu"))
  611. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  612. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  613. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  614. (if (= @installer-version 0)
  615.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  616.   (if (= cpu 68060) (set #cpu 1))
  617. )
  618. (if (> (exists ("libs:PPC.library")) 0) (set #cpu 2) )
  619.  
  620. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060" "PPC with 68040 or 68060")
  621.             (prompt #askcpu)
  622.                     (help   #askcpu)
  623.                   (default #cpu)
  624.       )
  625. )
  626.  
  627. (if (= cpuPick 0) ((set cpuadd ".020") (set cpuadd-1 ".020")) )
  628. (if (= cpuPick 1) ((set cpuadd ".040") (set cpuadd-1 ".040")) )
  629. (if (= cpuPick 2) ((set cpuadd ".040") (set cpuadd-1 ".ppc")) )
  630.  
  631. ;*******************************************************************
  632. ;  ASK where cybergfx libs are
  633. ;*******************************************************************
  634. (set wherelibs   (askdir (prompt #wherelibs)
  635.              (help   #wherelibs)
  636.                   (default "SYS:Libs")
  637.          )
  638. )
  639.  
  640. ;*******************************************************************
  641. ;  Copy libs if there
  642. ;*******************************************************************
  643. (if (exists (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd-1)) )
  644.   (copyfiles (source (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd-1))) (dest wherelibs) (newname "cgxsystem.library") (optional "nofail") ) 
  645. )
  646.  
  647. (if (exists (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd)) )
  648.   (copyfiles (source (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd))) (dest wherelibs) (newname "cgxmpeg.library") (optional "nofail") ) 
  649. )
  650.  
  651. ;(if (exists (tackon "cgxbootpiclib" (cat "cgxbootpic.library" cpuadd)) )
  652. ;  (copyfiles (source (tackon "cgxbootpiclib" (cat "cgxbootpic.library" cpuadd))) (dest wherelibs) (newname "cgxbootpic.library") (optional "nofail") ) 
  653. ;)
  654.  
  655. ;*******************************************************************
  656. ;  Ask What bootlogo....
  657. ;*******************************************************************
  658. (if (> (exists ("c:multiview")) 0)  ((set #mpath "c:") (set mfound 1)) )
  659. (if (> (exists ("sys:Utilities/multiview")) 0) ((set #mpath "sys:Utilities") (set mfound 1)) )
  660. (if (= mfound 1) (run (cat "run " (tackon #mpath "multiview ") "cgxbootpiclib/bootlogos.iff")) )
  661.  
  662. (if (exists "libs:cgxbootpic.library") (set whatboot 2))
  663. (set whatboot  (askchoice
  664.                (choices #bootdefault #bootppc #bootnone)
  665.                (prompt #whatboot)
  666.                (help   #whatboot)
  667.                (default whatboot)
  668.               )
  669. )
  670.  
  671. (if (AND (exists "cgxbootpiclib/cgxbootpic.library") (= whatboot 0))
  672.   (copyfiles (source "cgxbootpiclib/cgxbootpic.library") (dest wherelibs) (optional "nofail") ) 
  673. )
  674.  
  675. (if (AND (exists "cgxbootpiclib/cgxbootpic.library.ppc") (= whatboot 1))
  676.   (copyfiles (source "cgxbootpiclib/cgxbootpic.library.ppc") (dest wherelibs) (optional "nofail") (newname "cgxbootpic.library") ) 
  677. )
  678.  
  679. ;*******************************************************************
  680. ;  Installer monitor file and handle extra libs 
  681. ;*******************************************************************
  682.   (if (IN board 1)
  683.    (
  684.      (set error (run "tools/ChkCV3DZorro"))
  685.      (if (= error 0) (set guessZ 1) (set guessZ 0) )
  686.   
  687.      (set pickZ (askchoice (choices "zorro2 - Amiga 2000/zorro2 Expansion Box" "zorro3 - Amiga 3000(T)/4000(T)")
  688.                        (prompt #askzorro)
  689.                        (help   #askzorro)
  690.                            (default guessZ)
  691.                 )
  692.      )
  693.   
  694.      (if (= pickZ 0) (set zadd ".Z2"))   (if (= pickZ 1) (set zadd ".Z3")) 
  695.  
  696.      (if (exists (tackon "S3Drivers" (cat "CVision3D" zadd)))
  697.       (if (= (exists (tackon "devs:monitors" "CVision3D.info")) 0)      
  698.        (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (infos) (optional "nofail") ) 
  699.        (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (optional "nofail") ) 
  700.       )      
  701.      )
  702.  
  703.      (if (exists (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd)) )
  704.        (copyfiles (source (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd))) (dest wherelibs) (newname "cgxvideo.library") (optional "nofail") ) 
  705.      )
  706.  
  707.      (if (exists (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd)) )
  708.        (copyfiles (source (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd))) (dest wherelibs) (newname "cgx3dvirgin.library") (optional "nofail") ) 
  709.      )
  710.  
  711.    )
  712.   )
  713.  
  714.  
  715.   (if (AND (exists (tackon "S3Drivers" "CVision64")) (IN board 2) )
  716.    (if (= (exists (tackon "devs:monitors" "CVision64.info")) 0)  
  717.     (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  718.     (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (optional "nofail") ) 
  719.    )
  720.   )
  721.  
  722.   (if (AND (exists (tackon "CLDrivers" "PicassoII")) (IN board 3) )
  723.    (if (= (exists (tackon "devs:monitors" "PicassoII.info")) 0)  
  724.     (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  725.     (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (optional "nofail") ) 
  726.    )
  727.   )
  728.  
  729.   (if (AND (exists (tackon "CLDrivers" "Spectrum")) (IN board 4) )
  730.    (if (= (exists (tackon "devs:monitors" "Spectrum.info")) 0)  
  731.     (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  732.     (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (optional "nofail") ) 
  733.    )
  734.   )
  735.  
  736.   (if (AND (exists (tackon "CLDrivers" "Piccolo")) (IN board 5) )
  737.    (if (= (exists (tackon "devs:monitors" "Piccolo.info")) 0)  
  738.     (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  739.     (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (optional "nofail") ) 
  740.    )
  741.   )
  742.  
  743.   (if (AND (exists (tackon "CLDrivers" "PiccoSD64")) (IN board 6) )
  744.    (if (= (exists (tackon "devs:monitors" "PiccoSD64.info")) 0)  
  745.     (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  746.     (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (optional "nofail") ) 
  747.    )
  748.   )
  749.  
  750.   (if (AND (exists (tackon "CLDrivers" "Inferno")) (IN board 7) )
  751.    (if (= (exists (tackon "devs:monitors" "Inferno.info")) 0)  
  752.     (copyfiles (source (tackon "CLDrivers" "Inferno")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  753.     (copyfiles (source (tackon "CLDrivers" "Inferno")) (dest "devs:monitors") (optional "nofail") ) 
  754.    )
  755.   )
  756.  
  757.   (if (AND (exists (tackon "CLDrivers" "PicassoIV")) (IN board 8) )
  758.    (
  759.     (set error1 (run "tools/ChkPIVResource"))   ; 0 <2, 5 >=2
  760.     (if (< error1 5) (message #updatep4flash))
  761.  
  762.     (if (= (exists (tackon "devs:monitors" "PicassoIV.info")) 0)  
  763.      (copyfiles (source (tackon "CLDrivers" "PicassoIV")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  764.      (copyfiles (source (tackon "CLDrivers" "PicassoIV")) (dest "devs:monitors") (optional "nofail") ) 
  765.     )
  766.    )
  767.   )
  768.  
  769.   (if (AND (exists (tackon "SLDrivers" "RetinaZ3")) (IN board 9) )
  770.    (if (= (exists (tackon "devs:monitors" "RetinaZ3.info")) 0)  
  771.     (copyfiles (source (tackon "SLDrivers" "RetinaZ3")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  772.     (copyfiles (source (tackon "SLDrivers" "RetinaZ3")) (dest "devs:monitors") (optional "nofail") ) 
  773.    )
  774.   )
  775.  
  776.   (if (AND (exists (tackon "AADrivers" "CGXAGA")) (IN board 10) )
  777.    (if (= (exists (tackon "devs:monitors" "CGXAGA.info")) 0)  
  778.     (copyfiles (source (tackon "AADrivers" "CGXAGA")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  779.     (copyfiles (source (tackon "AADrivers" "CGXAGA")) (dest "devs:monitors") (optional "nofail") ) 
  780.    )
  781.   )
  782.  
  783.   (if (AND (exists (tackon "TIDrivers" "A2410")) (IN board 11) )
  784.    (if (= (exists (tackon "devs:monitors" "A2410.info")) 0)  
  785.     (copyfiles (source (tackon "TIDrivers" "A2410")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  786.     (copyfiles (source (tackon "TIDrivers" "A2410")) (dest "devs:monitors") (optional "nofail") ) 
  787.    )
  788.   )
  789.  
  790.  
  791.  
  792. ;*********************************************************************************
  793. ; Setup Monitor Config File Setup
  794. ;*********************************************************************************
  795. (set modefile 0)
  796. (procedure askconfigfile
  797.   (set modefile (askchoice
  798.                  (choices "None/Skip" #31KHZ #35KHZ #38KHZ #48KHZ #57KHZ #64KHZ #80KHZ)
  799.                  (prompt (cat #ask-MODEFILE1 boardname #ask-MODEFILE2))
  800.                  (help   (cat #ask-MODEFILE1 boardname #ask-MODEFILE2))
  801.                  (default modefile)
  802.                 )
  803.   )
  804.  
  805.   (if (> modefile 0)
  806.    (
  807.     (if (< (exists "env:CyberGraphX") 2) (makedir "env:CyberGraphX") )    
  808.     (if (< (exists "envarc:CyberGraphX") 2) (makedir "envarc:CyberGraphX") )    
  809.  
  810.     (if (= modefile 1) (set mode "Monitor-31khz")) (if (= modefile 2) (set mode "Monitor-35khz")) 
  811.     (if (= modefile 3) (set mode "Monitor-38khz")) (if (= modefile 4) (set mode "Monitor-48khz")) 
  812.     (if (= modefile 5) (set mode "Monitor-57khz")) (if (= modefile 6) (set mode "Monitor-64khz")) 
  813.     (if (= modefile 7) (set mode "Monitor-80khz")) 
  814.  
  815.     (if (< (exists "sys:prefs") 2) (makedir "sys:prefs") )  
  816.     (if (< (exists "sys:prefs/presets") 2) (makedir "sys:prefs/presets") )  
  817.     (if (< (exists "sys:prefs/presets/monitors") 2) (makedir "sys:prefs/presets/monitors") )    
  818.     (copyfiles (source (cat "prefs/presets/monitors/" mode))  (dest "sys:prefs/presets/monitors")) 
  819.  
  820.     (run (cat "setenv CyberGraphX/" boardname "Monitor " mode))
  821.     (copyfiles (source (cat "env:CyberGraphX/" boardname "Monitor"))  (dest "envarc:CyberGraphX") )
  822.    )
  823.   )
  824. )
  825.  
  826. (if (IN board 0) ( (set boardname "CVisionPPC") (askconfigfile))) (if (IN board 1) ( (set boardname "CVision3D")  (askconfigfile)))
  827. (if (IN board 2) ( (set boardname "CVision64")  (askconfigfile))) (if (IN board 3) ( (set boardname "PicassoII")  (askconfigfile)))
  828. (if (IN board 4) ( (set boardname "Spectrum")   (askconfigfile))) (if (IN board 5) ( (set boardname "Piccolo")  (askconfigfile)))
  829. (if (IN board 6) ( (set boardname "PiccoSD64")  (askconfigfile))) (if (IN board 7) ( (set boardname "Inferno")  (askconfigfile)))
  830. (if (IN board 8) ( (set boardname "PicassoIV")  (askconfigfile))) (if (IN board 9) ( (set boardname "RetinaZ3")  (askconfigfile)))
  831.  
  832. ;********************************************************************************
  833. ; Save the env vars...
  834. ;********************************************************************************
  835. (procedure Save_Env
  836.  (if (< (exists "env:CyberGraphX") 2) (makedir "env:CyberGraphX") )    
  837.  (if (< (exists "envarc:CyberGraphX") 2) (makedir "envarc:CyberGraphX") )    
  838.  
  839.  (if (= usesemaphores 0) ( (delete "env:CyberGraphX/USESEMAPHORES") (delete "envarc:CyberGraphX/USESEMAPHORES") ) )
  840.  (if (= usesemaphores 1) ( (run "setenv CyberGraphX/USESEMAPHORES 1") (copyfiles (source "ENV:CyberGraphX/USESEMAPHORES") (dest "ENVARC:CyberGraphX") ) ) )
  841.  
  842.  (if (= superlayers 0) ( (delete "env:CyberGraphX/SUPERLAYERS") (delete "envarc:CyberGraphX/SUPERLAYERS") ) )
  843.  (if (= superlayers 1) ( (run "setenv CyberGraphX/SUPERLAYERS 1") (copyfiles (source "ENV:CyberGraphX/SUPERLAYERS") (dest "ENVARC:CyberGraphX") ) ) )
  844.  
  845.  (if (= cpup2c 0) ( (delete "env:CyberGraphX/CPUP2C") (delete "envarc:CyberGraphX/CPUP2C")  ) )
  846.  (if (= cpup2c 1) ( (run "setenv CyberGraphX/CPUP2C 1") (copyfiles (source "ENV:CyberGraphX/CPUP2C") (dest "ENVARC:CyberGraphX") )  ) )
  847.  
  848.  (if (= HIRESCRSR 0) ( (delete "env:CyberGraphX/HIRESCRSR") (delete "envarc:CyberGraphX/HIRESCRSR") ) )
  849.  (if (= HIRESCRSR 1) ( (run "setenv CyberGraphX/HIRESCRSR 1") (copyfiles (source "ENV:CyberGraphX/HIRESCRSR") (dest "ENVARC:CyberGraphX") ) ) )
  850.  
  851.  (if (= HIDE15BIT 0) ( (delete "env:CyberGraphX/HIDE15BIT") (delete "envarc:CyberGraphX/HIDE15BIT") ) )
  852.  (if (= HIDE15BIT 1) ( (run "setenv CyberGraphX/HIDE15BIT 1") (copyfiles (source "ENV:CyberGraphX/HIDE15BIT") (dest "ENVARC:CyberGraphX") ) ) )
  853.  
  854.  (if (= ALERTEMU 0) ( (delete "env:CyberGraphX/ALERTEMU") (delete "envarc:CyberGraphX/ALERTEMU") ) )
  855.  (if (= ALERTEMU 1) ( (run "setenv CyberGraphX/ALERTEMU 1") (copyfiles (source "ENV:CyberGraphX/ALERTEMU") (dest "ENVARC:CyberGraphX") ) ) )
  856.  
  857.  (if (= PLANES2FAST 0) ( (delete "env:CyberGraphX/PLANES2FAST") (delete "envarc:CyberGraphX/PLANES2FAST") ) )
  858.  (if (= PLANES2FAST 1) ( (run "setenv CyberGraphX/PLANES2FAST 1") (copyfiles (source "ENV:CyberGraphX/PLANES2FAST") (dest "ENVARC:CyberGraphX") ) ) )
  859.  
  860.  (if (= KEEPAMIGAVIDEO 0) ( (delete "env:CyberGraphX/KEEPAMIGAVIDEO") (delete "envarc:CyberGraphX/KEEPAMIGAVIDEO") ) )
  861.  (if (= KEEPAMIGAVIDEO 1) ( (run "setenv CyberGraphX/KEEPAMIGAVIDEO 1") (copyfiles (source "ENV:CyberGraphX/KEEPAMIGAVIDEO") (dest "ENVARC:CyberGraphX") ) ) )
  862.  
  863.  (if (= SAVEMEM 0) ( (delete "env:CyberGraphX/SAVEMEM") (delete "envarc:CyberGraphX/SAVEMEM") ) )
  864.  (if (= SAVEMEM 1) ( (run "setenv CyberGraphX/SAVEMEM 1") (copyfiles (source "ENV:CyberGraphX/SAVEMEM") (dest "ENVARC:CyberGraphX") ) ) )
  865.  
  866.  (if (= NOPASSTHROUGH 0) ( (delete "env:CyberGraphX/NOPASSTHROUGH") (delete "envarc:CyberGraphX/NOPASSTHROUGH") ) )
  867.  (if (= NOPASSTHROUGH 1) ( (run "setenv CyberGraphX/NOPASSTHROUGH 1") (copyfiles (source "ENV:CyberGraphX/NOPASSTHROUGH") (dest "ENVARC:CyberGraphX") ) ) )
  868.  
  869.  (if (= SUPERGELS 0) ( (delete "env:CyberGraphX/SUPERGELS") (delete "envarc:CyberGraphX/SUPERGELS") ) )
  870.  (if (= SUPERGELS 1) ( (run "setenv CyberGraphX/SUPERGELS 1") (copyfiles (source "ENV:CyberGraphX/SUPERGELS") (dest "ENVARC:CyberGraphX") ) ) )
  871.  
  872.  
  873. )
  874.  
  875. ;********************************************************************************
  876. ; Find out whats in the env vars...
  877. ;********************************************************************************
  878. (procedure Read_Env
  879.  (set supergels 1) (set superlayers 0) (set usesemaphores 0)  
  880.  (set hires 0)     (set cpup2c 0)      (set hide15bit 0) (set alertemu 0)
  881.  (set nochip 0)    (set nopass 0)      (set keepamiga 0) (set planes2 0)
  882.  (set bootlogo 0)  (set savemem 0)
  883.  
  884.  
  885.  (if (> (exists ("env:CyberGraphX/USESEMAPHORES")) 0) (if (= 1 (getenv "CyberGraphX/USESEMAPHORES")) (set usesemaphores 1) ) )
  886.  (if (> (exists ("env:CyberGraphX/SUPERLAYERS")) 0)   (if (= 1 (getenv "CyberGraphX/SUPERLAYERS")) (set superlayers 1) ) )
  887.  (if (> (exists ("env:CyberGraphX/CPUP2C")) 0)        (if (= 1 (getenv "CyberGraphX/CPUP2C")) (set cpup2c 1) ) )
  888.  (if (> (exists ("env:CyberGraphX/HIRESCRSR")) 0)     (if (= 1 (getenv "CyberGraphX/HIRESCRSR")) (set hires 1) ) )
  889.  (if (> (exists ("env:CyberGraphX/HIDE15BIT")) 0)     (if (= 1 (getenv "CyberGraphX/HIDE15BIT")) (set hide15bit 1) ) )
  890.  (if (> (exists ("env:CyberGraphX/ALERTEMU")) 0)      (if (= 1 (getenv "CyberGraphX/ALERTEMU")) (set alertemu 1) ) )
  891.  (if (> (exists ("env:CyberGraphX/PLANES2FAST")) 0)   (if (= 1 (getenv "CyberGraphX/PLANES2FAST")) (set planes2 1) ) )
  892.  (if (> (exists ("env:CyberGraphX/KEEPAMIGAVIDEO")) 0)(if (= 1 (getenv "CyberGraphX/KEEPAMIGAVIDEO")) (set keepamiga 1) ) )
  893.  (if (> (exists ("env:CyberGraphX/SAVEMEM")) 0)       (if (= 1 (getenv "CyberGraphX/SAVEMEM")) (set savemem 1) ) )
  894.  (if (> (exists ("env:CyberGraphX/NOPASSTHROUGH")) 0) (if (= 1 (getenv "CyberGraphX/NOPASSTHROUGH")) (set nopassthrough 1) ) )
  895.  (if (> (exists ("env:CyberGraphX/SUPERGELS")) 0)     (if (= 1 (getenv "CyberGraphX/SUPERGELS")) (set supergels 1) ) )
  896. )
  897.  
  898. ;****************************************
  899. ; Long Env Set #1
  900. ;****************************************
  901. (procedure SetEnvLong_1
  902.  
  903.  (set PLANES2FAST (askchoice    (choices #no #yes)
  904.                             (prompt (cat #planes2 " " #currset))
  905.                             (help   (cat #planes2 " " #currset))
  906.                                 (default planes2)
  907.                   )
  908.  )
  909.  
  910.  (set USESEMAPHORES (askchoice (choices #no #yes)
  911.                            (prompt (cat #usesemaphores " " #currset))
  912.                            (help   (cat #usesemaphores " " #currset))
  913.                                (default usesemaphores)
  914.                     )
  915.  )
  916.  
  917.  (set SUPERLAYERS (askchoice  (choices #no #yes)
  918.                           (prompt (cat #superlayers " " #currset))
  919.                           (help   (cat #superlayers " " #currset))
  920.                               (default superlayers)
  921.                   )
  922.  )
  923.  
  924.  (set SUPERGELS    (askchoice   (choices #no #yes)
  925.                             (prompt (cat #supergels  " " #currset))
  926.                             (help   (cat #supergels  " " #currset))
  927.                                 (default supergels)
  928.                    )
  929.  )
  930.  
  931. )
  932.  
  933. ;****************************************
  934. ; Long Env Set #2
  935. ;****************************************
  936. (procedure SetEnvLong_2
  937.  
  938. (set CPUP2P   (askchoice     (choices #no #yes)
  939.                            (prompt (cat #cpup2c " " #currset))
  940.                            (help   (cat #cpup2c " " #currset))
  941.                          (default cpup2c)
  942.           )
  943. )
  944.  
  945. (set HIRESCRSR (askchoice    (choices #no #yes)
  946.                            (prompt (cat #hirescrsr " " #currset))
  947.                            (help   (cat #hirescrsr " " #currset))
  948.                          (default hires)
  949.            )
  950. )
  951.  
  952. (set HIDE15BIT (askchoice    (choices #no #yes)
  953.                            (prompt (cat #hide15bit " " #currset))
  954.                            (help   (cat #hide15bit " " #currset))
  955.                          (default hide15bit)
  956.            )
  957. )
  958.  
  959. (set ALERTEMU  (askchoice    (choices #no #yes)
  960.                            (prompt (cat #alertemu " " #currset))
  961.                            (help   (cat #alertemu " " #currset))
  962.                          (default alertemu)
  963.            )
  964. )
  965.  
  966. (set KEEPAMIGAVIDEO (askchoice    (choices #no #yes)
  967.                            (prompt (cat #keepamiga " " #currset))
  968.                            (help   (cat #keepamiga " " #currset))
  969.                          (default keepamiga)
  970.               )
  971. )
  972.  
  973. (set SAVEMEM      (askchoice    (choices #no #yes)
  974.                            (prompt (cat #savemem  " " #currset))
  975.                            (help   (cat #savemem  " " #currset))
  976.                          (default savemem)
  977.               )
  978. )
  979.  
  980. (set NOPASSTHROUGH (askchoice   (choices #no #yes)
  981.                            (prompt (cat #nopassthrough  " " #currset))
  982.                            (help   (cat #nopassthrough  " " #currset))
  983.                          (default nopassthrough)
  984.               )
  985. )
  986.  
  987. ;****
  988. )
  989.  
  990. (set otherboards 0)
  991. (if (OR (IN board 1) (IN board 2) (IN board 3) (IN board 4) (IN board 5) 
  992.                      (IN board 6) (IN board 7) (IN board 8) (IN board 9)
  993.                      (IN board 11) 
  994.     ) 
  995.       (set otherboards 1)
  996. )
  997.  
  998. (message #followingenv)
  999. (Read_Env)
  1000. (if (= AGA 0) ((SetEnvLong_1) (SetEnvLong_2)) )
  1001. (if (= AGA 1) 
  1002.   (if (= otherboards 1)
  1003.       ((SetEnvLong_1) (message #noenvaga) (SetEnvLong_2))
  1004.       (SetEnvLong_1)
  1005.   )
  1006. )
  1007. (Save_Env)
  1008.  
  1009. ;*********************************************************************************
  1010. ;* Set needed tooltypes for each board 
  1011. ;*********************************************************************************
  1012. (procedure BOOTLOGO-TT
  1013.  (set BOOTLOGO      (askchoice    (choices #no #yes)
  1014.                              (prompt (cat #bootlogo  " " #currset))
  1015.                              (help   (cat #bootlogo  " " #currset))
  1016.                              (default 1)
  1017.                 )
  1018.  ) 
  1019.  
  1020.  (tooltype (dest (tackon "devs:monitors" boardname)) 
  1021.            (if (= BOOTLOGO 0) 
  1022.                (settooltype "BOOTLOGO" "0")
  1023.                (settooltype "BOOTLOGO" "1")
  1024.            )
  1025.  )
  1026. )
  1027.  
  1028. (procedure PASSTHROUGH-TT
  1029.  (set PASSTHROUGH   (askchoice    (choices #no #yes)
  1030.                              (prompt (cat #passthrough  " " #currset))
  1031.                              (help   (cat #passthrough  " " #currset))
  1032.                              (default 0)
  1033.                 )
  1034.  ) 
  1035.  
  1036.  (tooltype (dest (tackon "devs:monitors" boardname)) 
  1037.            (if (= PASSTHROUGH 0) 
  1038.                (settooltype "PASSTHROUGH" "NO")
  1039.                (settooltype "PASSTHROUGH" "YES")
  1040.            )
  1041.  )
  1042. )
  1043.  
  1044. (procedure DRAGGING-TT
  1045.  (set DRAGGING   (askchoice    (choices #no #yes)
  1046.                              (prompt (cat #dragging  " " #currset))
  1047.                              (help   (cat #dragging  " " #currset))
  1048.                              (default 1)
  1049.                 )
  1050.  ) 
  1051.  
  1052.  (tooltype (dest (tackon "devs:monitors" boardname)) 
  1053.            (if (= DRAGGING 0) 
  1054.                (settooltype "DRAGGING" "NO")
  1055.                (settooltype "DRAGGING" "YES")
  1056.            )
  1057.  )
  1058. )
  1059.  
  1060. (procedure SCROLLMASK-TT
  1061.  (set SCROLLMASK    (askchoice    (choices #no #yes)
  1062.                              (prompt (cat #scrollmask  " " #currset))
  1063.                              (help   (cat #scrollmask  " " #currset))
  1064.                              (default 1)
  1065.                 )
  1066.  ) 
  1067.  
  1068.  (tooltype (dest (tackon "devs:monitors" boardname)) 
  1069.            (if (= SCROLLMASK 0) 
  1070.                (settooltype "SCROLLMASK" "NO")
  1071.                (settooltype "SCROLLMASK" "YES")
  1072.            )
  1073.  )
  1074. )
  1075.  
  1076. (procedure MEMCLOCK-TT-CV64
  1077.   (set MEMCLOCK (asknumber (prompt (cat #memclock  " " #currset))
  1078.                            (help   (cat #memclock  " " #currset))
  1079.                            (range 50 80)
  1080.                            (default 50)
  1081.                 )
  1082.   ) 
  1083.  
  1084.  (tooltype (dest (tackon "devs:monitors" boardname)) 
  1085.               (settooltype "MEMCLOCK" (cat MEMCLOCK))
  1086.  )
  1087. )
  1088.  
  1089. (procedure MEMCLOCK-TT-RetinaZ3
  1090.   (set MEMCLOCK (asknumber (prompt (cat #memclock  " " #currset))
  1091.                            (help   (cat #memclock  " " #currset))
  1092.                            (range 20 90)
  1093.                            (default 63)
  1094.                 )
  1095.   ) 
  1096.  
  1097.  (tooltype (dest (tackon "devs:monitors" boardname)) 
  1098.               (settooltype "MEMCLOCK" (cat MEMCLOCK))
  1099.  )
  1100. )
  1101.  
  1102. (procedure MULTIMEDIAMEM-TT
  1103.  (set MULTIMEDIAMEM              (askchoice    (choices #no #yes)
  1104.                              (prompt (cat #multimediamem " " #currset))
  1105.                              (help   (cat #multimediamem " " #currset))
  1106.                              (default 1)
  1107.                 )
  1108.  ) 
  1109.  
  1110.  (tooltype (dest (tackon "devs:monitors" boardname)) 
  1111.            (if (= MULTIMEDIAMEM 0) 
  1112.                (settooltype "MULTIMEDIAMEM" "NO")
  1113.                (settooltype "MULTIMEDIAMEM" "YES")
  1114.            )
  1115.  )
  1116. )
  1117.  
  1118. (procedure BLACKBORDER-TT
  1119.  (set BLACKBORDER   (askchoice    (choices #no #yes)
  1120.                              (prompt (cat #blackborder " " #currset))
  1121.                              (help   (cat #blackborder " " #currset))
  1122.                              (default 0)
  1123.                 )
  1124.  ) 
  1125.  
  1126.  (tooltype (dest (tackon "devs:monitors" boardname)) 
  1127.            (if (= BLACKBORDER 0) 
  1128.                (settooltype "BLACKBORDER" "NO")
  1129.                (settooltype "BLACKBORDER" "YES")
  1130.            )
  1131.  )
  1132. )
  1133.  
  1134. (procedure WHATBOARD-TT (message (cat #whatboard-tt boardname)) ) 
  1135.  
  1136. (if (IN board 0)  ( (set boardname "CVisionPPC")  )) 
  1137. (if (IN board 1)  ( (set boardname "CVision3D")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) (SCROLLMASK-TT) (MULTIMEDIAMEM-TT) ))
  1138. (if (IN board 2)  ( (set boardname "CVision64")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) (SCROLLMASK-TT) (MEMCLOCK-TT-CV64) )) 
  1139. (if (IN board 3)  ( (set boardname "PicassoII")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) ))
  1140. (if (IN board 4)  ( (set boardname "Spectrum")   (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) )) 
  1141. (if (IN board 5)  ( (set boardname "Piccolo")    (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) ))
  1142. (if (IN board 6)  ( (set boardname "PiccoSD64")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) )) 
  1143. (if (IN board 7)  ( (set boardname "Inferno")    (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) ))
  1144. (if (IN board 8)  ( (set boardname "PicassoIV")  (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) )) 
  1145. (if (IN board 9)  ( (set boardname "RetinaZ3")   (WHATBOARD-TT) (BOOTLOGO-TT) (PASSTHROUGH-TT) (DRAGGING-TT) (BLACKBORDER-TT) (MEMCLOCK-TT-RetinaZ3)))
  1146. (if (IN board 10) ( (set boardname "CGXAGA") ))
  1147. (if (IN board 11) ( (set boardname "A2410") ))
  1148.  
  1149. ;*********************************************************************************
  1150. ;* Ask user to install CGXMode 
  1151. ;*********************************************************************************
  1152. (set toolpick 3)
  1153.  
  1154. (if (= AGA 1)
  1155.  ( (set #cgxmode-todo #CGXModeNot4AGA)
  1156.    (set toolpick 2)
  1157.  )
  1158. )
  1159.  
  1160.   (set ToDo (askoptions (choices #cgxmode-todo #showcgxconfig)
  1161.                         (prompt #todo-prompt)
  1162.                         (help #todo-prompt)
  1163.                         (default toolpick)
  1164.             )
  1165.   ) 
  1166.  
  1167.   (if (IN ToDo 0) 
  1168.     ( 
  1169.       (set wheremode   (askdir (prompt #wheremode)
  1170.                                (help   #wheremode)
  1171.                            (default "SYS:Prefs")
  1172.                )
  1173.       )
  1174.  
  1175.       (if (exists "CGXMode/CGXMode")
  1176.        (if (= (exists (tackon wheremode "CGXMode.info")) 0)
  1177.         (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (infos) (optional "nofail")) 
  1178.         (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (optional "nofail"))          
  1179.        )
  1180.       )
  1181.  
  1182.       (if (IN board 9) (set TTBOARD "RetinaZ3") )    (if (IN board 8) (set TTBOARD "PicassoIV") ) 
  1183.       (if (IN board 7) (set TTBOARD "Inferno") )     (if (IN board 6) (set TTBOARD "PiccoSD64") ) 
  1184.       (if (IN board 5) (set TTBOARD "Piccolo") )     (if (IN board 4) (set TTBOARD "Spectrum") ) 
  1185.       (if (IN board 3) (set TTBOARD "PicassoII") )   (if (IN board 2) (set TTBOARD "CVision64") )    
  1186.       (if (IN board 1) (set TTBOARD "CVision3D") )   (if (IN board 0) (set TTBOARD "CVisionPPC") ) 
  1187.  
  1188.       (if (> board 0)
  1189.         (tooltype    (dest (tackon wheremode "CGXMode")) (settooltype "BOARD" TTBOARD) ) 
  1190.       )
  1191.  
  1192.       (if (= @language "deutsch")
  1193.        (
  1194.          (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
  1195.          (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
  1196.          (if (exists "CGXMode/catalogs/deutsch/cgxmode.catalog")
  1197.            (copyfiles (source "CGXMode/catalogs/deutsch/cgxmode.catalog") (dest "sys:Locale/Catalogs/deutsch") )
  1198.          )
  1199.        )
  1200.       )
  1201.  
  1202.     )
  1203.   )
  1204.  
  1205.  
  1206. (if (IN ToDo 1) 
  1207.   ( 
  1208.     (set whereshowcgxconfig   (askdir (prompt #whereshowcgxconfig)
  1209.                              (help   #whereshowcgxconfig)
  1210.                          (default "SYS:Tools")
  1211.              )
  1212.     )
  1213.  
  1214.     (if (exists "tools/showcgxconfig")
  1215.      (if (= (exists (tackon whereshowcgxconfig "CGXMode.info")) 0)
  1216.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (infos) (optional "nofail")) 
  1217.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (optional "nofail"))          
  1218.      )
  1219.     )
  1220.  
  1221.   )
  1222. )
  1223.  
  1224.  
  1225.  
  1226.  
  1227.  
  1228. ;*******************************************************************
  1229. ;  END
  1230. ;*******************************************************************
  1231. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  1232. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  1233.  
  1234. (run (cat "run " #mpath "/multiview Changes.txt") )
  1235.  
  1236. (set @default-dest "ram:")
  1237.  
  1238. (exit)
  1239.